setwd("/Users/smoon/Desktop/Thesis/Data/")
results <- read.csv("RacesWithDIME.csv", header = T, as.is = T)
results$year.x <- as.factor(results$year.x)

summary(results[results$uncontested == 1,]$year.x)

